home *** CD-ROM | disk | FTP | other *** search
/ Knowledge Adventure: Spa…ndersea Adventure & Speed / Knowledge Adventure Compilation - Space Adventure - Undersea Adventure - Speed (Packard Bell)(170159)(1994).ISO / zzzinst1.scr < prev    next >
Text File  |  1994-05-16  |  2KB  |  64 lines
  1. indestdir
  2. set _text insteng.txl
  3. err_handler %_text%\errhand.txt
  4. getOpt -T
  5. if %_err% eq 0
  6.     set _option "-T"
  7. endif
  8. getOpt -W
  9. if %_err% eq 0
  10.     set _option "%_option% -W"
  11. endif
  12. rem determine which menu item to highlight
  13. set _next 0
  14. getOpt -N:
  15. if %_err% eq 0
  16.     set _next %_1%
  17. endif
  18. :loop
  19. textbox 1 1 80 25 blue
  20. color back blue
  21. type %_text%\cpyrght.txt 11 23 60 4
  22. color back cyan
  23. type %_text%\install.txt 3 2 77 5 -border
  24. rem menu %_text%\shell.mnu 20 10 40 10 %_text%\shell.tit %_text%\updown.leg -default %_next%
  25. menu %_text%\shell.mnu 20 9 40 12 %_text%\shell.tit %_text%\updown.leg -default %_next%
  26. set _product "%_2%"
  27. switch %_1%
  28. case escape:
  29.     textbox 1 1 80 25 black
  30. case quit:
  31.     textbox 1 1 80 25 black
  32. case readme:
  33.     set _next "%_3%"
  34.     goto doc_top
  35. case default:
  36.     chain  -curoff %_product%\zzzprod %_option% -N %_3%
  37. endswitch
  38. rem exit with status 99 to signal batch file to not rerun us.
  39. quit 99
  40. rem
  41. rem readme menu
  42. :doc_top
  43. set _line 0
  44. :doc_loop
  45. set _doctext %_product%\doceng.txl
  46. textbox 1 1 80 25 blue
  47. color back blue
  48. type %_doctext%\readme0.txt 5 18 70 7
  49. color back cyan
  50. menu %_doctext%\readme.mnu 15 2 50 15 %_doctext%\readme.tit %_doctext%\updown.leg -default %_line%
  51. set _choice "%_1%"
  52. switch %_choice%
  53. case default:
  54.     textbox 1 1 80 25 black
  55.     spawn %_product%\more.com %_product%\doc\readme%_choice%.txt
  56.     type %_doctext%\anykey.txt 1 25 80 1
  57.     waitkey_noesc
  58.     set _line %_choice%
  59.     goto doc_loop
  60. case escape:
  61. case quit:
  62. endswitch
  63. goto loop
  64.